home *** CD-ROM | disk | FTP | other *** search
/ Professional Soft Collection 1.02 / Professional Soft Collection 1.02.iso / communic / bitfax.300 / disk1 / sprinet.sc_ / sprinet.bin
Encoding:
Text File  |  1994-04-19  |  749 b   |  39 lines
  1. {EASYLINK.SCP}
  2. {This is the BIT Software version of the Delphi(Sprintnet) logon file.}
  3.  
  4. trace(0)
  5. :start
  6.     @c=1
  7.     typecr("Select the DELPHI(SPRINTNET) Record ID...")
  8.     selpbk(default)
  9.     select(Sprinet)
  10.     if ( @mode <> 1 ) @mode = 1     { set it to call mode }
  11.     twait(1,"sec")    
  12.     docomm
  13.  
  14. :loop1
  15.     twait(2,"sec");
  16.     if ( @conn = 0 ) goto :abort     { abort if disconnected }
  17.     if ( @conn = 1 ) goto :done      { continue on if connected }
  18.  {   poscur(1,9) }
  19.     goto :loop1
  20.  
  21. :done
  22.     twait(5, "sec")
  23.     "@@"
  24.     twait(1, "sec")
  25.     "D"
  26.     twait(1, "sec")
  27.     "$0d"
  28.     cwait("=") 
  29.     "$0d"     
  30.     cwait("@@") 
  31.     "c delphi$0d" 
  32.     cwait("Username:") 
  33.      "xxxxx$0d" 
  34.     cwait("Password:") 
  35.     "yyyyy$0d"  
  36.  
  37. :abort
  38.     exit
  39.